class BASENOERROR    feature         A alias "+" (s: INTEGER) : INTEGER         do            Result:=s+1         end                  B(s : INTEGER) : INTEGER         do           Result:=s+1         endendclass DERIVEDERROR1      inherit BASENOERROR            rename B as BASEB  alias "+"end